home *** CD-ROM | disk | FTP | other *** search
- //----------------------------------------------------------------------------
- // BtsClass.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
- // From: BtsClass.pas
- //----------------------------------------------------------------------------
- #ifndef BtsClassHPP
- #define BtsClassHPP
- //----------------------------------------------------------------------------
- #include <Bde.hpp>
- #include <BtsConst.hpp>
- #include <DBTables.hpp>
- #include <DB.hpp>
- #include <MIFiles.hpp>
- #include <Classes.hpp>
- #include <SysUtils.hpp>
- #include <Windows.hpp>
- #include <System.hpp>
- namespace Btsclass
- {
- //-- type declarations -------------------------------------------------------
- class __declspec(delphiclass) EBts;
- class __declspec(pascalimplementation) EBts : public Sysutils::Exception
- {
- typedef Sysutils::Exception inherited;
-
- public:
- /* Exception.Create */ __fastcall EBts(const System::AnsiString Msg) : Sysutils::Exception(Msg) { }
-
- /* Exception.CreateFmt */ __fastcall EBts(const System::AnsiString Msg, const System::TVarRec *Args
- , const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
- /* Exception.CreateRes */ __fastcall EBts(int Ident) : Sysutils::Exception(Ident) { }
- /* Exception.CreateResFmt */ __fastcall EBts(int Ident, const System::TVarRec *Args, const int Args_Size
- ) : Sysutils::Exception(Ident, Args, Args_Size) { }
- /* Exception.CreateHelp */ __fastcall EBts(const System::AnsiString Msg, int AHelpContext) : Sysutils::
- Exception(Msg, AHelpContext) { }
- /* Exception.CreateFmtHelp */ __fastcall EBts(const System::AnsiString Msg, const System::TVarRec *
- Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
- ) { }
- /* Exception.CreateResHelp */ __fastcall EBts(int Ident, int AHelpContext) : Sysutils::Exception(Ident
- , AHelpContext) { }
- /* Exception.CreateResFmtHelp */ __fastcall EBts(int Ident, const System::TVarRec *Args, const int
- Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext) { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~EBts(void) { }
-
- };
-
- class __declspec(delphiclass) ENoRecords;
- class __declspec(pascalimplementation) ENoRecords : public EBts
- {
- typedef EBts inherited;
-
- public:
- /* Exception.Create */ __fastcall ENoRecords(const System::AnsiString Msg) : Btsclass::EBts(Msg) { }
-
- /* Exception.CreateFmt */ __fastcall ENoRecords(const System::AnsiString Msg, const System::TVarRec
- *Args, const int Args_Size) : Btsclass::EBts(Msg, Args, Args_Size) { }
- /* Exception.CreateRes */ __fastcall ENoRecords(int Ident) : Btsclass::EBts(Ident) { }
- /* Exception.CreateResFmt */ __fastcall ENoRecords(int Ident, const System::TVarRec *Args, const int
- Args_Size) : Btsclass::EBts(Ident, Args, Args_Size) { }
- /* Exception.CreateHelp */ __fastcall ENoRecords(const System::AnsiString Msg, int AHelpContext) :
- Btsclass::EBts(Msg, AHelpContext) { }
- /* Exception.CreateFmtHelp */ __fastcall ENoRecords(const System::AnsiString Msg, const System::TVarRec
- *Args, const int Args_Size, int AHelpContext) : Btsclass::EBts(Msg, Args, Args_Size, AHelpContext)
- { }
- /* Exception.CreateResHelp */ __fastcall ENoRecords(int Ident, int AHelpContext) : Btsclass::EBts(Ident
- , AHelpContext) { }
- /* Exception.CreateResFmtHelp */ __fastcall ENoRecords(int Ident, const System::TVarRec *Args, const
- int Args_Size, int AHelpContext) : Btsclass::EBts(Ident, Args, Args_Size, AHelpContext) { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~ENoRecords(void) { }
-
- };
-
- class __declspec(delphiclass) ESystemDown;
- class __declspec(pascalimplementation) ESystemDown : public EBts
- {
- typedef EBts inherited;
-
- public:
- /* Exception.Create */ __fastcall ESystemDown(const System::AnsiString Msg) : Btsclass::EBts(Msg) { }
-
- /* Exception.CreateFmt */ __fastcall ESystemDown(const System::AnsiString Msg, const System::TVarRec
- *Args, const int Args_Size) : Btsclass::EBts(Msg, Args, Args_Size) { }
- /* Exception.CreateRes */ __fastcall ESystemDown(int Ident) : Btsclass::EBts(Ident) { }
- /* Exception.CreateResFmt */ __fastcall ESystemDown(int Ident, const System::TVarRec *Args, const int
- Args_Size) : Btsclass::EBts(Ident, Args, Args_Size) { }
- /* Exception.CreateHelp */ __fastcall ESystemDown(const System::AnsiString Msg, int AHelpContext) :
- Btsclass::EBts(Msg, AHelpContext) { }
- /* Exception.CreateFmtHelp */ __fastcall ESystemDown(const System::AnsiString Msg, const System::TVarRec
- *Args, const int Args_Size, int AHelpContext) : Btsclass::EBts(Msg, Args, Args_Size, AHelpContext)
- { }
- /* Exception.CreateResHelp */ __fastcall ESystemDown(int Ident, int AHelpContext) : Btsclass::EBts(
- Ident, AHelpContext) { }
- /* Exception.CreateResFmtHelp */ __fastcall ESystemDown(int Ident, const System::TVarRec *Args, const
- int Args_Size, int AHelpContext) : Btsclass::EBts(Ident, Args, Args_Size, AHelpContext) { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~ESystemDown(void) { }
-
- };
-
- class __declspec(delphiclass) EInvalidField;
- class __declspec(pascalimplementation) EInvalidField : public EBts
- {
- typedef EBts inherited;
-
- public:
- Db::TField* Field;
- __fastcall EInvalidField(Db::TField* AField, const System::AnsiString Msg);
- public:
- /* Exception.CreateFmt */ __fastcall EInvalidField(const System::AnsiString Msg, const System::TVarRec
- *Args, const int Args_Size) : Btsclass::EBts(Msg, Args, Args_Size) { }
- /* Exception.CreateRes */ __fastcall EInvalidField(int Ident) : Btsclass::EBts(Ident) { }
- /* Exception.CreateResFmt */ __fastcall EInvalidField(int Ident, const System::TVarRec *Args, const
- int Args_Size) : Btsclass::EBts(Ident, Args, Args_Size) { }
- /* Exception.CreateHelp */ __fastcall EInvalidField(const System::AnsiString Msg, int AHelpContext)
- : Btsclass::EBts(Msg, AHelpContext) { }
- /* Exception.CreateFmtHelp */ __fastcall EInvalidField(const System::AnsiString Msg, const System::TVarRec
- *Args, const int Args_Size, int AHelpContext) : Btsclass::EBts(Msg, Args, Args_Size, AHelpContext)
- { }
- /* Exception.CreateResHelp */ __fastcall EInvalidField(int Ident, int AHelpContext) : Btsclass::EBts(
- Ident, AHelpContext) { }
- /* Exception.CreateResFmtHelp */ __fastcall EInvalidField(int Ident, const System::TVarRec *Args, const
- int Args_Size, int AHelpContext) : Btsclass::EBts(Ident, Args, Args_Size, AHelpContext) { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~EInvalidField(void) { }
-
- };
-
- class __declspec(delphiclass) EMissingAttach;
- class __declspec(pascalimplementation) EMissingAttach : public EInvalidField
- {
- typedef EInvalidField inherited;
-
- public:
- /* EInvalidField.Create */ __fastcall EMissingAttach(Db::TField* AField, const System::AnsiString Msg
- ) : Btsclass::EInvalidField(AField, Msg) { }
-
- public:
- /* Exception.CreateFmt */ __fastcall EMissingAttach(const System::AnsiString Msg, const System::TVarRec
- *Args, const int Args_Size) : Btsclass::EInvalidField(Msg, Args, Args_Size) { }
- /* Exception.CreateRes */ __fastcall EMissingAttach(int Ident) : Btsclass::EInvalidField(Ident) { }
-
- /* Exception.CreateResFmt */ __fastcall EMissingAttach(int Ident, const System::TVarRec *Args, const
- int Args_Size) : Btsclass::EInvalidField(Ident, Args, Args_Size) { }
- /* Exception.CreateHelp */ __fastcall EMissingAttach(const System::AnsiString Msg, int AHelpContext
- ) : Btsclass::EInvalidField(Msg, AHelpContext) { }
- /* Exception.CreateFmtHelp */ __fastcall EMissingAttach(const System::AnsiString Msg, const System::TVarRec
- *Args, const int Args_Size, int AHelpContext) : Btsclass::EInvalidField(Msg, Args, Args_Size, AHelpContext
- ) { }
- /* Exception.CreateResHelp */ __fastcall EMissingAttach(int Ident, int AHelpContext) : Btsclass::EInvalidField(
- Ident, AHelpContext) { }
- /* Exception.CreateResFmtHelp */ __fastcall EMissingAttach(int Ident, const System::TVarRec *Args,
- const int Args_Size, int AHelpContext) : Btsclass::EInvalidField(Ident, Args, Args_Size, AHelpContext
- ) { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~EMissingAttach(void) { }
-
- };
-
- class __declspec(delphiclass) EDisplayOutline;
- class __declspec(pascalimplementation) EDisplayOutline : public Sysutils::Exception
- {
- typedef Sysutils::Exception inherited;
-
- public:
- double ItemCode;
- __fastcall EDisplayOutline(double ACode);
- public:
- /* Exception.CreateFmt */ __fastcall EDisplayOutline(const System::AnsiString Msg, const System::TVarRec
- *Args, const int Args_Size) : Sysutils::Exception(Msg, Args, Args_Size) { }
- /* Exception.CreateRes */ __fastcall EDisplayOutline(int Ident) : Sysutils::Exception(Ident) { }
- /* Exception.CreateResFmt */ __fastcall EDisplayOutline(int Ident, const System::TVarRec *Args, const
- int Args_Size) : Sysutils::Exception(Ident, Args, Args_Size) { }
- /* Exception.CreateHelp */ __fastcall EDisplayOutline(const System::AnsiString Msg, int AHelpContext
- ) : Sysutils::Exception(Msg, AHelpContext) { }
- /* Exception.CreateFmtHelp */ __fastcall EDisplayOutline(const System::AnsiString Msg, const System::TVarRec
- *Args, const int Args_Size, int AHelpContext) : Sysutils::Exception(Msg, Args, Args_Size, AHelpContext
- ) { }
- /* Exception.CreateResHelp */ __fastcall EDisplayOutline(int Ident, int AHelpContext) : Sysutils::Exception(
- Ident, AHelpContext) { }
- /* Exception.CreateResFmtHelp */ __fastcall EDisplayOutline(int Ident, const System::TVarRec *Args,
- const int Args_Size, int AHelpContext) : Sysutils::Exception(Ident, Args, Args_Size, AHelpContext)
- { }
-
- public:
- /* TObject.Destroy */ __fastcall virtual ~EDisplayOutline(void) { }
-
- };
-
- struct TStrItem;
- typedef TStrItem *PStrItem;
-
- struct TStrItem
- {
- System::TObject* FObject;
- int FCode;
- char *FDesc;
- System::AnsiString FValue;
- System::AnsiString FString;
- } ;
-
- class __declspec(delphiclass) TLookupList;
- class __declspec(pascalimplementation) TLookupList : public Classes::TStrings
- {
- typedef Classes::TStrings inherited;
-
- private:
- Classes::TList* List;
- bool FCoded;
- bool FUseDesc;
- System::AnsiString FTableName;
-
- protected:
- System::AnsiString CodeSep;
- System::AnsiString DescSep;
- PStrItem __fastcall NewStrItem(const System::AnsiString S);
- void __fastcall DisposeStrItem(PStrItem P);
- virtual System::AnsiString __fastcall Get(int Index);
- virtual int __fastcall GetCount(void);
- virtual System::TObject* __fastcall GetObject(int Index);
- virtual void __fastcall Put(int Index, const System::AnsiString S);
- virtual void __fastcall PutObject(int Index, System::TObject* AObject);
- HIDESBASE System::AnsiString __fastcall GetValue(int Index);
- System::AnsiString __fastcall GetDesc(int Index);
- int __fastcall GetCode(int Index);
- System::AnsiString __fastcall GetItem(int Index);
-
- public:
- __fastcall TLookupList(void);
- __fastcall virtual ~TLookupList(void);
- virtual void __fastcall Delete(int Index);
- virtual void __fastcall Insert(int Index, const System::AnsiString S);
- virtual void __fastcall Clear(void);
- int __fastcall IndexOfValue(const System::AnsiString S);
- int __fastcall IndexOfDesc(const System::AnsiString S);
- int __fastcall IndexOfCode(int ACode);
- int __fastcall IndexOfItem(const System::AnsiString S);
- System::AnsiString __fastcall CodeToValue(int ACode);
- int __fastcall ValueToCode(const System::AnsiString AValue);
- __property System::AnsiString Value[int Index] = {read=GetValue};
- __property System::AnsiString Desc[int Index] = {read=GetDesc};
- __property int Code[int Index] = {read=GetCode};
- __property System::AnsiString Item[int Index] = {read=GetItem};
- __property bool UseDesc = {read=FUseDesc, write=FUseDesc, nodefault};
- __property System::AnsiString TableName = {read=FTableName, write=FTableName, nodefault};
- __property bool Coded = {read=FCoded, nodefault};
- };
-
- class __declspec(delphiclass) TBtsUser;
- class __declspec(pascalimplementation) TBtsUser : public System::TObject
- {
- typedef System::TObject inherited;
-
- private:
- System::AnsiString FNetName;
- System::AnsiString FUserName;
- System::AnsiString FGroup;
- Btsconst::TUserRights FRights;
- bool FRegistered;
-
- public:
- __fastcall TBtsUser(Dbtables::TTable* UserTab, TLookupList* GroupLook, const System::AnsiString DefRights
- );
- void __fastcall CheckRights(Btsconst::TUserRights Value);
- __property System::AnsiString Group = {read=FGroup, nodefault};
- __property System::AnsiString NetName = {read=FNetName, nodefault};
- __property Btsconst::TUserRights Rights = {read=FRights, nodefault};
- __property System::AnsiString UserName = {read=FUserName, nodefault};
- __property bool Registered = {read=FRegistered, write=FRegistered, nodefault};
- public:
- /* TObject.Destroy */ __fastcall virtual ~TBtsUser(void) { }
-
- };
-
- class __declspec(delphiclass) TFieldMap;
- class __declspec(pascalimplementation) TFieldMap : public Classes::TStringList
- {
- typedef Classes::TStringList inherited;
-
- private:
- int __fastcall GetStatusValue(int ResValue);
-
- public:
- __fastcall TFieldMap(Mifiles::TMemIniFile* StatIni, const System::AnsiString CfgSect);
- __property int StatusValue[int ResValue] = {read=GetStatusValue};
- public:
- /* TStringList.Destroy */ __fastcall virtual ~TFieldMap(void) { }
-
- };
-
- class __declspec(delphiclass) TCloneDataset;
- class __declspec(pascalimplementation) TCloneDataset : public Db::TDBDataSet
- {
- typedef Db::TDBDataSet inherited;
-
- private:
- Bde::_hDBIObj *FSourceHandle;
- void __fastcall SetSourceHandle(Bde::hDBICur ASourceHandle);
-
- protected:
- virtual Bde::hDBICur __fastcall CreateHandle(void);
-
- public:
- __property Bde::hDBICur SourceHandle = {read=FSourceHandle, write=SetSourceHandle, nodefault};
- public:
-
- /* TDataSet.Create */ __fastcall virtual TCloneDataset(Classes::TComponent* AOwner) : Db::TDBDataSet(
- AOwner) { }
- /* TDataSet.Destroy */ __fastcall virtual ~TCloneDataset(void) { }
-
- };
-
- class __declspec(delphiclass) TCloneTable;
- class __declspec(pascalimplementation) TCloneTable : public Dbtables::TTable
- {
- typedef Dbtables::TTable inherited;
-
- private:
- Bde::_hDBIObj *FSourceHandle;
- void __fastcall SetSourceHandle(Bde::hDBICur ASourceHandle);
-
- protected:
- virtual Bde::hDBICur __fastcall CreateHandle(void);
-
- public:
- __fastcall TCloneTable(Classes::TComponent* AOwner, bool Reset);
- void __fastcall InitFromTable(Dbtables::TTable* SourceTable, bool Reset);
- public:
- /* TTable.Create */ __fastcall virtual TCloneTable(Classes::TComponent* AOwner) : Dbtables::TTable(
- AOwner) { }
- /* TTable.Destroy */ __fastcall virtual ~TCloneTable(void) { }
-
- };
-
- class __declspec(delphiclass) TQueryField;
- class __declspec(pascalimplementation) TQueryField : public System::TObject
- {
- typedef System::TObject inherited;
-
- protected:
- TQueryDataType FQDType;
- int FFldNo;
- int FQRow;
- System::AnsiString FQText;
- System::AnsiString FFldName;
- System::AnsiString FLookupTableName;
-
- public:
- TQueryField* LookupData[2];
- __fastcall TQueryField(Btsconst::TQueryDataType AQDType, int AFldNo, System::AnsiString AQText);
- __fastcall virtual ~TQueryField(void);
- void __fastcall InitLookupData(TLookupList* LookupList, const System::AnsiString Example, const System::AnsiString
- CodeFldName, const System::AnsiString DescFldName, int ARow, int ACol);
- __property int FldNo = {read=FFldNo, nodefault};
- __property System::AnsiString FldName = {read=FFldName, write=FFldName, nodefault};
- __property System::AnsiString QText = {read=FQText, write=FQText, nodefault};
- __property int QRow = {read=FQRow, write=FQRow, nodefault};
- __property Btsconst::TQueryDataType QDType = {read=FQDType, nodefault};
- __property System::AnsiString LookupTableName = {read=FLookupTableName, write=FLookupTableName, nodefault
- };
- };
-
- class __declspec(delphiclass) TQueryData;
- class __declspec(pascalimplementation) TQueryData : public Classes::TList
- {
- typedef Classes::TList inherited;
-
- private:
- HIDESBASE TQueryField* __fastcall Get(int Index);
-
- public:
- void __fastcall Empty(void);
- __fastcall virtual ~TQueryData(void);
- __property TQueryField* Items[int Index] = {read=Get/*, default*/};
- public:
- /* TObject.Create */ __fastcall TQueryData(void) : Classes::TList() { }
-
- };
-
- enum TCheckType { ctNone, ctCheck, ctCheckPlus, ctCheckDesc, ctCheckGroup };
-
- class __declspec(delphiclass) TQBEQuery;
- class __declspec(pascalimplementation) TQBEQuery : public Dbtables::TQuery
- {
- typedef Dbtables::TQuery inherited;
-
- private:
- Bde::_hDBIObj *hQry;
-
- protected:
- virtual Bde::hDBICur __fastcall CreateHandle(void);
-
- public:
- __fastcall virtual TQBEQuery(Classes::TComponent* AOwner);
- void __fastcall AddExpr(const System::AnsiString TabName, const System::AnsiString FldName, int Row
- , TCheckType CheckType, System::AnsiString Expr);
- public:
- /* TQuery.Destroy */ __fastcall virtual ~TQBEQuery(void) { }
-
- };
-
- class __declspec(delphiclass) TOtlData;
- class __declspec(pascalimplementation) TOtlData : public System::TObject
- {
- typedef System::TObject inherited;
-
- public:
- char *ProgName;
- char *Tester;
- bool HasChildren;
- __fastcall TOtlData(char * PName, char * TName, bool ChildFlag);
- __fastcall virtual ~TOtlData(void);
- };
-
- //-- var, const, procedure ---------------------------------------------------
- #define fldnoNetName (Byte)(3)
- //-- template instantiations -------------------------------------------------
- template class Btsconst::TUserRights ;
-
- } /* namespace Btsclass */
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Btsclass;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // BtsClass
-